home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
MUSIUSIC
/
PMUSIC12.LZH
/
PLAYPOLY.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-11-30
|
2KB
|
74 lines
program playply;
{$L ppoly_s}
{uses polyfunc;}
const
DEFTEMP = 1024;
FILENAMEEXT = '.ply';
var
tempval, badchar : integer;
infile : file;
procedure poly(s,o:word); external;
procedure playpoly(filename:string; defaulttempo:word);
var
tune : pointer;
fsize : longint;
p : ^word;
infilename : string;
begin
infilename := filename;
if pos('.', filename) = 0 then
infilename := infilename+FILENAMEEXT;
assign(infile, infilename);
reset(infile,1);
fsize := filesize(infile);
getmem( p, word(fsize)+1 );
p^ := defaulttempo;
tune := p;
p := ptr(seg(p^),ofs(p^)+2);
blockread(infile,p^,word(fsize));
close(infile);
poly(seg(tune^),ofs(tune^));
freemem(tune,word(fsize));
end;
procedure message;
begin
writeln('Usage: PlayPoly <plyfile> [tval]');
writeln;
writeln('where:');
writeln(' <plyfile> = the name of the file to play.');
writeln(' [tval] = [optional] starting tempo value, 1 (fast) - 65535 (slow)');
writeln;
writeln('PlayPoly.EXE and its original source code is Copyright (c) 1989 - ');
writeln('GrigaSoft Productions. PlayPoly may not be included in any commercial');
writeln('software package without explicit written permission from the author.');
writeln('This package is an unregistered evaluation copy for demo use only.');
writeln('Register your copy today!');
end;
begin
if paramcount > 0 then begin
if paramcount > 1 then begin
val(paramstr(2),tempval,badchar);
if badchar = 0 then
playpoly( paramstr(1), tempval )
else begin
message;
halt(2);
end;
end else
playpoly(paramstr(1),DEFTEMP);
end else begin
message;
halt(1);
end;
end.